home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / Pen.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  7.4 KB  |  204 lines
  1. pTempVar <- <primitive 110 25 >
  2. <primitive 112 pTempVar 1  " closePlotEnv: " \
  3.   #( #[ 16r50 16r21 16rFA 16r02 16rA9 16r5B 16rB6 16rF6 16r0C 16r20 16r30 \
  4.         16r21 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r20 16rF3 \
  5.         16rF2 16r5D 16rF3 16rF5] \
  6.     #( 'PlotEnv ' ' did NOT close!'  )) >
  7.  
  8. <primitive 112 pTempVar 2  " openPlotEnv: " \
  9.   #( #[ 16r21 16r0A 16r31 16r72 16r21 16r0A 16r32 16r73 16r51 16r10 16r22 \
  10.         16r23 16rFA 16r04 16rA9 16r5B 16rB6 16rF6 16r0E 16r20 16r30 \
  11.         16r10 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r5D 16rF3 \
  12.         16rF8 16r14 16rF2 16r05 16r36 16r50 16rB0 16r63 16r22 16r52 \
  13.         16rBF 16r61 16r23 16r52 16rBF 16r62 16r22 16r64 16r23 16r65 \
  14.         16r20 16rF3 16rF2 16rF5] \
  15.     #( 'openPlotEnv ' ' did NOT open!'  )) >
  16.  
  17. <primitive 112 pTempVar 3  " new: " \
  18.   #( #[ 16r21 16r05 16r3A 16r81 16r00 16rF7 16r05 16r21 16rF1 16r60 16rF8 \
  19.         16r04 16rF2 16r31 16rF1 16r60 16rF2 16r05 16r36 16r50 16rB0 \
  20.         16r63 16r05 16rA0 16r61 16r05 16r64 16r62 16r32 16r64 16r05 \
  21.         16rC8 16r65 16r51 16r66 16r50 16r67 16r20 16rF3 16rF5] \
  22.     #( #isKindOf: 'Unknown Plot' 320  )) >
  23.  
  24. <primitive 112 pTempVar 4  " new " \
  25.   #( #[ 16r30 16r60 16r05 16r36 16r50 16rB0 16r63 16r05 16rA0 16r61 16r05 \
  26.         16r64 16r62 16r31 16r64 16r05 16rC8 16r65 16r51 16r66 16r50 \
  27.         16r67 16r20 16rF3 16rF5] \
  28.     #( 'Unknown Plot' 320  )) >
  29.  
  30. <primitive 112 pTempVar 5  " turn: " \
  31.   #( #[ 16r13 16r21 16rC0 16r63 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 6  " go: " \
  35.   #( #[ 16r13 16r05 16r36 16r81 16r00 16rF7 16r17 16r13 16r80 16r01 16r21 \
  36.         16rC2 16r0A 16r29 16r11 16rC0 16r72 16r13 16r80 16r02 16r21 \
  37.         16rC2 16r0A 16r29 16r12 16rC0 16rF1 16r73 16rF8 16r1A 16rF2 \
  38.         16r13 16r80 16r03 16r80 16r01 16r21 16rC2 16r0A 16r29 16r11 \
  39.         16rC0 16r72 16r13 16r80 16r03 16r80 16r02 16r21 16rC2 16r0A \
  40.         16r29 16r12 16rC0 16rF1 16r73 16rF2 16r20 16r22 16r23 16r81 \
  41.         16r04 16r81 16r05 16rF2 16rF5] \
  42.     #( #isKindOf: #sin #cos #radians #@ #drawTo:  )) >
  43.  
  44. <primitive 112 pTempVar 7  " setPens: " \
  45.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rB0 16rF2 16r21 \
  46.         16r0A 16r31 16r66 16r21 16r0A 16r32 16r67 16rF5] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 8  " tellPens " \
  50.   #( #[ 16r16 16r17 16r81 16r00 16rF3 16rF5] \
  51.     #( #@  )) >
  52.  
  53. <primitive 112 pTempVar 9  " center " \
  54.   #( #[ 16r20 16r14 16r52 16rBF 16r15 16r52 16rBF 16r81 16r00 16r81 16r01 \
  55.         16rF2 16rF5] \
  56.     #( #@ #goTo:  )) >
  57.  
  58. <primitive 112 pTempVar 10  " titleIs " \
  59.   #( #[ 16r10 16rF3 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 11  " location " \
  63.   #( #[ 16r11 16r12 16r81 16r00 16rF3 16rF5] \
  64.     #( #@  )) >
  65.  
  66. <primitive 112 pTempVar 12  " extent " \
  67.   #( #[ 16r14 16r15 16r81 16r00 16rF3 16rF5] \
  68.     #( #@  )) >
  69.  
  70. <primitive 112 pTempVar 13  " erase " \
  71.   #( #[ 16rFA 16r00 16rAA 16rF2 16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 14  " direction: " \
  75.   #( #[ 16r21 16r63 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 15  " direction " \
  79.   #( #[ 16r13 16rF3 16rF5] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 16  " drawPoint: " \
  83.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAD 16rF2 16r21 \
  84.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16rF5] \
  85.     #(  )) >
  86.  
  87. <primitive 112 pTempVar 17  " drawLine:to: " \
  88.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16r0A 16r31 16r22 16r0A \
  89.         16r32 16rFA 16r04 16rB1 16rF2 16r22 16r0A 16r31 16r61 16r22 \
  90.         16r0A 16r32 16r62 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 18  " goTo: " \
  94.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAB 16rF2 16r21 \
  95.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 19  " drawTo: " \
  99.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAC 16rF2 16r21 \
  100.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 112 pTempVar 20  " circleRadius: " \
  104.   #( #[ 16r11 16r12 16r21 16rFA 16r03 16rAE 16rF2 16rF5] \
  105.     #(  )) >
  106.  
  107. <primitive 112 pTempVar 21  " drawCircleAt:radius: " \
  108.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16rFA 16r03 16rAE 16rF2 \
  109.         16r21 16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 22  " drawBox:to: " \
  113.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16r0A 16r31 16r22 16r0A \
  114.         16r32 16rFA 16r04 16rAF 16rF2 16r22 16r0A 16r31 16r61 16r22 \
  115.         16r0A 16r32 16r62 16rF5] \
  116.     #(  )) >
  117.  
  118. <primitive 112 pTempVar 23  " drawText:at: " \
  119.   #( #[ 16r21 16r22 16r0A 16r31 16r22 16r0A 16r32 16r16 16r17 16rFA 16r05 \
  120.         16rB2 16rF2 16r22 16r0A 16r31 16r61 16r22 16r0A 16r32 16r62 \
  121.         16rF5] \
  122.     #(  )) >
  123.  
  124. <primitive 112 pTempVar 24  " setLineType: " \
  125.   #( #[ 16r21 16rFA 16r01 16rB3 16rF2 16rF5] \
  126.     #(  )) >
  127.  
  128. <primitive 112 pTempVar 25  " movePlotEnvBy: " \
  129.   #( #[ 16r52 16r10 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r04 16rA9 \
  130.         16rF2 16r20 16rF3 16rF5] \
  131.     #(  )) >
  132.  
  133. <primitive 98 #Pen \
  134.   <primitive 97 #Pen #Object #AmigaTalk:General/Pen.st \
  135.    #(  #title #x #y #angle #width #height #fpen #bpen ) \
  136.    #( #closePlotEnv: #openPlotEnv: #new: #new #turn: #go: #setPens:  \
  137.        #tellPens #center #titleIs #location #extent #erase #direction: #direction  \
  138.        #drawPoint: #drawLine:to: #goTo: #drawTo: #circleRadius: #drawCircleAt:radius:  \
  139.        #drawBox:to: #drawText:at: #setLineType: #movePlotEnvBy:  ) \
  140.   pTempVar 4 10 >>
  141.  
  142. pTempVar <- <primitive 110 3 >
  143. <primitive 112 pTempVar 1  " with:displayAt: " \
  144.   #( #[ 16r22 16r0A 16r31 16r73 16r22 16r0A 16r32 16r74 16r10 16rE1 16r07 \
  145.         16r2A 16r27 16r0A 16r31 16r75 16r27 16r0A 16r32 16r76 16r21 \
  146.         16r25 16r0A 16r31 16r23 16rC0 16r25 16r0A 16r32 16r24 16rC0 \
  147.         16r81 16r00 16r81 16r01 16rF2 16r21 16r26 16r0A 16r31 16r23 \
  148.         16rC0 16r26 16r0A 16r32 16r24 16rC0 16r81 16r00 16r81 16r02 \
  149.         16rF2 16r5D 16rF3 16rB3 16rF2 16rF5] \
  150.     #( #@ #goTo: #drawTo:  )) >
  151.  
  152. <primitive 112 pTempVar 2  " add:to: " \
  153.   #( #[ 16r10 16r05 16r35 16rA0 16rF1 16r21 16r0B 16r33 16rF2 16rF1 16r22 \
  154.         16r0B 16r34 16rF2 16rBE 16rF2 16rF5] \
  155.     #(  )) >
  156.  
  157. <primitive 112 pTempVar 3  " new " \
  158.   #( #[ 16r05 16r20 16rA0 16r60 16rF5] \
  159.     #(  )) >
  160.  
  161. <primitive 98 #FormPen \
  162.   <primitive 97 #FormPen #Pen #AmigaTalk:General/Pen.st \
  163.    #(  #lines ) \
  164.    #( #with:displayAt: #add:to: #new  ) \
  165.   pTempVar 8 9 >>
  166.  
  167. pTempVar <- <primitive 110 2 >
  168. <primitive 112 pTempVar 1  " goTo: " \
  169.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r10 16r20 16r80 16r01 16r21 16r82 \
  170.         16r02 16rF2 16r20 16r21 16r91 16r00 16rF2 16rF5] \
  171.     #( #goTo: #location #add:to:  )) >
  172.  
  173. <primitive 112 pTempVar 2  " setForm: " \
  174.   #( #[ 16r21 16r60 16rF5] \
  175.     #(  )) >
  176.  
  177. <primitive 98 #SavePen \
  178.   <primitive 97 #SavePen #FormPen #AmigaTalk:General/Pen.st \
  179.    #(  #saveForm ) \
  180.    #( #goTo: #setForm:  ) \
  181.   pTempVar 2 6 >>
  182.  
  183. pTempVar <- <primitive 110 3 >
  184. <primitive 112 pTempVar 1  " spiral:angle: " \
  185.   #( #[ 16r51 16r21 16rB2 16rE1 16r03 16r0A 16r10 16r23 16r81 16r00 16rF2 \
  186.         16r10 16r22 16r81 16r01 16rF3 16rB3 16rF2 16rF5] \
  187.     #( #go: #turn:  )) >
  188.  
  189. <primitive 112 pTempVar 2  " poly:length: " \
  190.   #( #[ 16r21 16rE0 16r0C 16r10 16r22 16r81 16r00 16rF2 16r10 16r31 16r21 \
  191.         16rBF 16r81 16r02 16rF3 16rB8 16rF2 16rF5] \
  192.     #( #go: 6.2831853 #turn:  )) >
  193.  
  194. <primitive 112 pTempVar 3  " withPen: " \
  195.   #( #[ 16r21 16r60 16rF5] \
  196.     #(  )) >
  197.  
  198. <primitive 98 #ShowPen \
  199.   <primitive 97 #ShowPen #Object #AmigaTalk:General/Pen.st \
  200.    #(  #bic ) \
  201.    #( #spiral:angle: #poly:length: #withPen:  ) \
  202.   pTempVar 4 7 >>
  203.  
  204.